home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yam-list-1.0.lha / forward.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-31  |  622b  |  37 lines
  1. /*
  2. ** $VER: Forward.rexx 1.0 (12.30.96)
  3. **
  4. ** Written by Peter Greci <midgard@nycmetro.com>
  5. **
  6. ** It forwards messages from the incoming folder to members of the
  7. ** mailing list.
  8. **/
  9.  
  10. OPTIONS RESULTS
  11. ADDRESS YAM
  12. SetFolder 0
  13. GetFolderInfo MAX; entries = RESULT
  14. ADDRESS REXX
  15. Do Until eof('plist')=1
  16. open('plist','listserv:list','R')
  17.     newad=readln('plist')
  18. ADDRESS YAM
  19. DO i=0 TO entries-1
  20.   SetMail i
  21.   GetMailInfo SUBJECT
  22.     sub=RESULT
  23.     GetMailInfo FROM
  24.     ret=RESULT
  25.     mailforward
  26.     writemailto newad
  27.     writequeue
  28.     mailsendall
  29.     mailarchive 3
  30.     setfolder 3
  31.     maildelete
  32.     setfolder 0
  33. END
  34. END
  35. EXIT
  36.  
  37.